home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / s / deliremovedisk < prev    next >
AmigaDOS Script File  |  1996-07-16  |  846b  |  21 lines
  1. .key DATABASE/A
  2. .bra {
  3. .ket }
  4. ;----------------------------------------------------------------
  5. ; -DISKREMOVED-Script- make yourself familiar how the script works
  6. ; to create your own (optimized) one. that what i call a "database"
  7. ; is infact only a poor textfile; maybe you can offer me a more
  8. ; complex database, i.e. an arexx script for FinalData or so ?
  9. ;----------------------------------------------------------------
  10. C:Search >pipe:db.{$$} FROM {DATABASE} SEARCH "default:" NONUM
  11. If WARN
  12.   C:Type pipe:db.{$$} >NIL:
  13.   C:RequestChoice >NIL: "Error Message" "{DATABASE} has no default: entry!*NYou MUST provide at least an empty program." "Ok"
  14.   Skip AllOver
  15. EndIf
  16. set progname `c:type pipe:db.{$$}`
  17. echo ".key a,b/f*N.bra <*N.ket >*Necho <b>*N" >T:filter.{$$}
  18. setenv DELIPROGRAM `execute T:filter.{$$} $progname`
  19. Lab AllOver
  20. unset progname
  21.